home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u6.d64 / cat'.proc < prev    next >
Text File  |  2007-02-28  |  296b  |  16 lines
  1. 9000 PROC CAT'  //READS DISK DIRECTORY
  2. 9010 PRINT "ô"
  3. 9020 POKE 198,8
  4. 9030 POKE 631,67
  5. 9040 POKE 632,65
  6. 9050 POKE 633,84
  7. 9060 POKE 634,13
  8. 9070 POKE 635,67
  9. 9080 POKE 636,79
  10. 9090 POKE 637,78
  11. 9100 POKE 638,13
  12. 9110 STOP 
  13. 9120 PRINT "æPRESS ANY KEY"
  14. 9130 WHILE KEY$=CHR$(0) DO NULL
  15. 9140 ENDPROC CAT'
  16.